home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / scm / xscm.lha / xscm / ol.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-29  |  3.3 KB  |  112 lines
  1. /*
  2.  * $Header: /home/campbell/Languages/Scheme/scm/x-scm/RCS/ol.c,v 1.1 1992/07/03 03:06:52 campbell Beta $
  3.  *
  4.  * Author: Larry Campbell (campbell@redsox.bsw.com)
  5.  *
  6.  * Copyright 1992 by The Boston Software Works, Inc.
  7.  * Permission to use for any purpose whatsoever granted, as long
  8.  * as this copyright notice remains intact.  Please send bug fixes
  9.  * or enhancements to the above email address.
  10.  *
  11.  * Class and function definitions for scm interface to OpenLook
  12.  */
  13.  
  14. #include <X11/Intrinsic.h>
  15. #include <X11/StringDefs.h>
  16. #include <Xol/OpenLook.h>
  17. #include <Xol/AbbrevMenu.h>
  18. #include <Xol/BulletinBo.h>
  19. #include <Xol/Caption.h>
  20. #include <Xol/CheckBox.h>
  21. #include <Xol/ControlAre.h>
  22. #include <Xol/Exclusives.h>
  23. #include <Xol/FooterPane.h>
  24. #include <Xol/Form.h>
  25. #include <Xol/Gauge.h>
  26. #include <Xol/Menu.h>
  27. #include <Xol/MenuButton.h>
  28. #include <Xol/Nonexclusi.h>
  29. #include <Xol/Notice.h>
  30. #include <Xol/OblongButt.h>
  31. #include <Xol/PopupWindo.h>
  32. #include <Xol/RectButton.h>
  33. #include <Xol/RubberTile.h>
  34. #include <Xol/Scrollbar.h>
  35. #include <Xol/ScrolledWi.h>
  36. #include <Xol/ScrollingL.h>
  37. #include <Xol/Slider.h>
  38. #include <Xol/StaticText.h>
  39. #include <Xol/Stub.h>
  40. #include <Xol/TextEdit.h>
  41. #include <Xol/TextField.h>
  42.  
  43. #include "scm.h"
  44. #include "xt.h"
  45.  
  46. static char    s_ol_initialize[] = "ol:initialize";
  47.  
  48. xt_widget_class_t ol_widget_classes[] = {
  49.     "ol:abbrev-menu-button",    &abbrevMenuButtonWidgetClass,
  50.     "ol:bulletin-board",    &bulletinBoardWidgetClass,
  51.     "ol:caption",        &captionWidgetClass,
  52.     "ol:check-box",        &checkBoxWidgetClass,
  53.     "ol:control-area",        &controlAreaWidgetClass,
  54.     "ol:exclusives",        &exclusivesWidgetClass,
  55.     "ol:footer-panel",        &footerPanelWidgetClass,
  56.     "ol:form",            &formWidgetClass,
  57.     "ol:gauge",            &gaugeWidgetClass,
  58.     "ol:menu-button",        &menuButtonWidgetClass,
  59.     "ol:menu-button-gadget",    &menuButtonGadgetClass,
  60.     "ol:menu-shell",        &menuShellWidgetClass,
  61.     "ol:nonexclusives",        &nonexclusivesWidgetClass,
  62.     "ol:notice-shell",        ¬iceShellWidgetClass,
  63.     "ol:oblong-button",        &oblongButtonWidgetClass,
  64.     "ol:oblong-button-gadget",    &oblongButtonGadgetClass,
  65.     "ol:popup-window-shell",    &popupWindowShellWidgetClass,
  66.     "ol:rect-button",        &rectButtonWidgetClass,
  67.     "ol:rubber-tile",        &rubberTileWidgetClass,
  68.     "ol:scrollbar",        &scrollbarWidgetClass,
  69.     "ol:scrolled-window",    &scrolledWindowWidgetClass,
  70.     "ol:scrolling-list",    &scrollingListWidgetClass,
  71.     "ol:slider",        &sliderWidgetClass,
  72.     "ol:static-text",        &staticTextWidgetClass,
  73.     "ol:stub",            &stubWidgetClass,
  74.     "ol:text-edit",        &textEditWidgetClass,
  75.     "ol:text-field",        &textFieldWidgetClass
  76. };
  77.  
  78.  
  79. SCM ol_initialize(sname, sclass, args)
  80. SCM sname, sclass, args;
  81. {
  82.   Widget top_level;
  83.   char *argv[1];
  84.   int argc;
  85.  
  86.   ASSERT(NIMP(sname) && STRINGP(sname), args, ARG1, s_ol_initialize);
  87.   ASSERT(NIMP(sclass) && STRINGP(sclass), args, ARG2, s_ol_initialize);
  88.  
  89.   argv[0] = CHARS(sname);
  90.   argc = 1;
  91.   top_level = OlInitialize(CHARS(sname), CHARS(sclass), 0, 0, &argc, argv);
  92.  
  93.   ASSERT(top_level != 0, sname, "OlInitialize error", s_ol_initialize);
  94.  
  95.   retuOT make_widget(top_level);
  96. }
  97.  
  98.  
  99. iproc ol_lsubr2s[] = {
  100.   {s_ol_initialize, ol_initialize},
  101.   {0, 0}
  102. };
  103.  
  104. void init_ol()
  105. {
  106.   init_iprocs(ol_lsubr2s, tc7_lsubr_2);
  107.   xt_init_widget_classes(
  108.     ol_widget_classes,
  109.     XtNumber(ol_widget_classes),
  110.     "*open-look-widget-classes*");
  111. }
  112.